home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / cleo.lzh / Cleo / examples / pair.cl < prev    next >
Encoding:
Text File  |  1993-01-24  |  413 b   |  24 lines
  1. program Pair;
  2.  
  3. var
  4.     a,b      : real;
  5.     d           : integer;
  6.  
  7. begin
  8.     b := 1;
  9.  
  10.     while b<10 do
  11.         begin
  12.             write(b);
  13.  
  14.             if b/2=trunc(b/2) then
  15.                 begin
  16.                     write(' ----->');
  17.                     writeln(' Nbre pair');
  18.                 end
  19.             else
  20.                 writeln(' Nbre impair');
  21.             b:=b+1;
  22.         end;
  23.     write('OK!');
  24. end.